home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / DOS2.asm < prev    next >
Assembly Source File  |  1990-11-10  |  2KB  |  110 lines
  1. *
  2. *    DOS2.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the less common procedures
  6. *    and functions defined in Include/Libraries/DOS.i.
  7. *
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _p%DOSBase
  13.  
  14.     XDEF    _CreateDir
  15.     XREF    _LVOCreateDir
  16. _CreateDir
  17.     move.l    4(sp),d1
  18.     move.l    _p%DOSBase,a6
  19.     jmp    _LVOCreateDir(a6)
  20.  
  21.     XDEF    _CurrentDir
  22.     XREF    _LVOCurrentDir
  23. _CurrentDir
  24.     move.l    4(sp),d1
  25.     move.l    _p%DOSBase,a6
  26.     jmp    _LVOCurrentDir(a6)
  27.  
  28.     XDEF    _Info
  29.     XREF    _LVOInfo
  30. _Info
  31.     move.l    d2,-(sp)
  32.     move.l    8(sp),d2
  33.     move.l    12(sp),d1
  34.     move.l    _p%DOSBase,a6
  35.     jsr    _LVOInfo(a6)
  36.     move.l    (sp)+,d2
  37.     tst.l    d0
  38.     sne    d0
  39.     rts
  40.  
  41.     XDEF    _IsInteractive
  42.     XREF    _LVOIsInteractive
  43. _IsInteractive
  44.     move.l    4(sp),d1
  45.     move.l    _p%DOSBase,a6
  46.     jsr    _LVOIsInteractive(a6)
  47.     tst.l    d0
  48.     sne    d0
  49.     rts
  50.  
  51.     XDEF    _ParentDir
  52.     XREF    _LVOParentDir
  53. _ParentDir
  54.     move.l    4(sp),d1
  55.     move.l    _p%DOSBase,a6
  56.     jmp    _LVOParentDir(a6)
  57.  
  58.     XDEF    _Seek
  59.     XREF    _LVOSeek
  60. _Seek
  61.     movem.l    d2/d3,-(sp)
  62.     move.l    12(sp),d3
  63.     move.l    16(sp),d2
  64.     move.l    20(sp),d1
  65.     move.l    _p%DOSBase,a6
  66.     jsr    _LVOSeek(a6)
  67.     movem.l    (sp)+,d2/d3
  68.     rts
  69.  
  70.     XDEF    _SetComment
  71.     XREF    _LVOSetComment
  72. _SetComment
  73.     move.l    d2,-(sp)
  74.     move.l    8(sp),d2
  75.     move.l    12(sp),d1
  76.     move.l    _p%DOSBase,a6
  77.     jsr    _LVOSetComment(a6)
  78.     move.l    (sp)+,d2
  79.     tst.l    d0
  80.     sne    d0
  81.     rts
  82.  
  83.     XDEF    _SetProtection
  84.     XREF    _LVOSetProtection
  85. _SetProtection
  86.     move.l    d2,-(sp)
  87.     move.l    8(sp),d2
  88.     move.l    12(sp),d1
  89.     move.l    _p%DOSBase,a6
  90.     jsr    _LVOSetProtection(a6)
  91.     move.l    (sp)+,d2
  92.     tst.l    d0
  93.     sne    d0
  94.     rts
  95.  
  96.     XDEF    _WaitForChar
  97.     XREF    _LVOWaitForChar
  98. _WaitForChar
  99.     move.l    d2,-(sp)
  100.     move.l    8(sp),d2
  101.     move.l    12(sp),d1
  102.     move.l    _p%DOSBase,a6
  103.     jsr    _LVOWaitForChar(a6)
  104.     move.l    (sp)+,d2
  105.     tst.l    d0
  106.     sne    d0
  107.     rts
  108.  
  109.     END
  110.